object ThumbForm: TThumbForm Left = 350 Top = 185 BorderStyle = bsDialog Caption = 'Image pre-viewer' ClientHeight = 373 ClientWidth = 580 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose PixelsPerInch = 96 TextHeight = 14 object Panel1: TPanel Left = 0 Top = 0 Width = 580 Height = 373 Align = alClient TabOrder = 0 object StopBtn: TSpeedButton Left = 499 Top = 288 Width = 75 Height = 30 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777711111111177777700007777199999999917777700007771 9999999999917777000077199999999999991777000071999999999999999177 000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9 F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917 0000719999999999999991770000771999999999999917770000777199999999 9991777700007777199999999917777700007777711111111177777700007777 77777777777777770000} Visible = False OnClick = AbortBtnClick end object Image1: TImage Left = 519 Top = 140 Width = 35 Height = 33 Center = True Picture.Data = {} Stretch = True OnDragDrop = Image1DragDrop OnDragOver = Image1DragOver end object Thumbs: TStringGrid Left = 168 Top = 47 Width = 324 Height = 301 DefaultColWidth = 60 DefaultRowHeight = 50 FixedCols = 0 RowCount = 10 FixedRows = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [] Options = [goVertLine, goHorzLine] ParentColor = True ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnClick = ThumbsClick OnDblClick = ThumbsDblClick OnDragDrop = ThumbsDragDrop OnDragOver = ThumbsDragOver OnDrawCell = ThumbsDrawCell OnKeyDown = ThumbsKeyDown OnMouseDown = ThumbsMouseDown OnMouseMove = ThumbsMouseMove end object DriveComboBox1: TDriveComboBox Left = 7 Top = 328 Width = 157 Height = 21 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 1 OnChange = DriveComboBox1Change OnClick = DriveComboBox1Click end object DirectoryListBox1: TDirectoryListBox Left = 8 Top = 191 Width = 155 Height = 134 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 2 OnChange = DirectoryListBox1Change OnClick = DirectoryListBox1Click end object FileListBox1: TFileListBox Left = 8 Top = 47 Width = 153 Height = 141 Hint = 'Drag Image on the grid to create thumbnail' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ItemHeight = 16 Mask = '*.gif;*.jpg;*.pcx;*.bmp;*.wmf;*.ico;*.scm;*.png;*.cms;*.tif;*.pc' + 'd;*.dxf;*.tga;*.eps' ParentFont = False ShowGlyphs = True TabOrder = 3 OnChange = FileListBox1Change OnClick = FileListBox1Click OnDblClick = FileListBox1DblClick OnKeyDown = FileListBox1KeyDown OnMouseDown = FileListBox1MouseDown end object ComboBox1: TComboBox Left = 8 Top = 10 Width = 154 Height = 22 Color = clBtnFace DropDownCount = 15 Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -11 Font.Name = 'Times New Roman' Font.Style = [] ItemHeight = 14 ParentFont = False TabOrder = 4 Text = 'Select file type' OnChange = ComboBox1Change OnClick = ComboBox1Click Items.Strings = ( '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO;*.PCD' '*.JPG' '*.GIF' '*.PCX' '*.BMP' '*.PNG' '*.TIF' '*.PCD' '*.WMF' '*.ICO') end object PMultiImage2: TPMultiImage Left = 506 Top = 47 Width = 60 Height = 50 GrabHandCursor = 5 Center = True Scrolling = True ShowScrollbars = True B_W_CopyFlags = [C_DEL] Color = clBtnFace ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic BlitMode = sLight ImageWriteRes = sAutoMatic TifSaveCompress = sNONE TiffPage = 1 TiffAppend = False JPegSaveQuality = 25 JPegSaveSmooth = 5 RubberBandBtn = mbLeft ScrollbarWidth = 12 ParentColor = True TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 5 TabStop = False Visible = False ZoomBy = 10 end object PMultiImage1: TPMultiImage Left = 506 Top = 47 Width = 60 Height = 50 GrabHandCursor = 5 Center = True Scrolling = True ShowScrollbars = True B_W_CopyFlags = [C_DEL] Color = clBtnFace ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic BlitMode = sLight ImageWriteRes = sAutoMatic TifSaveCompress = sNONE TiffPage = 1 TiffAppend = False JPegSaveQuality = 25 JPegSaveSmooth = 5 RubberBandBtn = mbLeft ScrollbarWidth = 12 ParentColor = True Stretch = True TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 6 TabStop = False ZoomBy = 10 end object Panel2: TPanel Left = 1 Top = 1 Width = 578 Height = 33 Align = alTop BevelInner = bvRaised BevelOuter = bvNone TabOrder = 7 object LoadBtn: TSpeedButton Left = 1 Top = 3 Width = 28 Height = 28 Hint = 'Load all existing thumbs' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777780087777777800000000000087708800888800 880770880888888088077088087888808807708808E78880880770FF00888800 FF0770FFF000000FFF0770000000000000077700780FF0870077777777800877 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = LoadBtnClick end object CreateNewKeep: TSpeedButton Left = 29 Top = 3 Width = 28 Height = 28 Hint = 'Create new previews keep old ones' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777777800000008777777707777777077007770788F8870 008077707777777080807770777887707070777078800870F070777080088070 00F0007008877070770008088770000877770F07700777777777007007777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = IncAllKeepBtnClick end object CreateNewDelete: TSpeedButton Left = 57 Top = 3 Width = 28 Height = 28 Hint = 'Create new previews and delete old ones' Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007000000000000000700000007077770770770770700000007007 7077077077007000000070707777770770707000000070770770707707707000 0000707770770700777070000000707777007777777070000000707777777777 7770700000007077777777700770700000007077777777077070700000007077 7777770770707000000070777777777007707000000070777777777777707000 0000700000000000000070000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = CreateNewDeleteClick end object DeleteAllBtn: TSpeedButton Left = 85 Top = 3 Width = 28 Height = 28 Hint = 'Delete all previews' Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777770000000777777777777777770000000777777777777770F700000007777 0F777777777770000000777000F7777770F770000000777000F777770F777000 00007777000F77700F777000000077777000F700F7777000000077777700000F 7777700000007777777000F777777000000077777700000F7777700000007777 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000 00007700F7777777700F70000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = DeleteAllBtnClick end object ClearAllBtn: TSpeedButton Left = 113 Top = 3 Width = 28 Height = 28 Hint = 'Clear preview window' Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777177777700000007777777771177777100000007777 7777711177717000000077777777771177117000000070000000000011577000 0000707777777775117770000000707007007071511770000000707777777711 771150000000704444445144447510000000774FFFFF15FFF47770000000774F 00F00F00F47770000000774FFFFFFFFFF4777000000077444444444444777000 0000774744744744747770000000774444444444447770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = ClearAllBtnClick end object Autoload: TSpeedButton Left = 141 Top = 3 Width = 28 Height = 28 Hint = 'Autoload Previews' AllowAllUp = True GroupIndex = 11 Flat = True Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333330000333333333333333333328888033333383333333 3332222288033338888333333332222228033303833833333332262228033000 0338333333322A62220333033038333333332222283333333038333333333222 2333333330333333333333333333333330333333883333333333333333333338 8883333333333888888833880888333333333888888838805088833333380000 00883309150883388888C44440883099915033333078CC4440883DD999153000 0003C6C4408833DF998333333033CE6C4088333DD83333333333CCCCC0333333 D333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} ParentShowHint = False ShowHint = True end object GPall: TSpeedButton Left = 170 Top = 2 Width = 29 Height = 29 Hint = 'In 256 color mode use a shared palette' AllowAllUp = True GroupIndex = 12 Flat = True Glyph.Data = { CA010000424DCA01000000000000760000002800000024000000110000000100 0400000000005401000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777770000777777777777777777777777777777777777 000077993344DDBBEE7777778877887788777777000077993344DDBBEE777777 8877887788777777000077993344DDBBEE777777887788778877777700007799 3344DDBBEE7777778877887788777777000077993344DDBBEE77777788778877 88777777000077993344DDBBEE7777778877887788777777000077993344DDBB EE7777778877887788777777000077993344DDBBEE7777778877887788777777 000077993344DDBBEE7777778877887788777777000077993344DDBBEE777777 8877887788777777000077993344DDBBEE777777887788778877777700007799 3344DDBBEE7777778877887788777777000077993344DDBBEE77777788778877 88777777000077993344DDBBEE77777788778877887777770000777777777777 7777777777777777777777770000} NumGlyphs = 2 ParentShowHint = False ShowHint = True end object RSpeed: TComboBox Left = 209 Top = 5 Width = 169 Height = 22 Style = csDropDownList ItemHeight = 14 TabOrder = 0 Items.Strings = ( 'Optimize Previews for Speed' 'Optimize Previews for Size') end object CResolution: TComboBox Left = 386 Top = 5 Width = 174 Height = 22 Style = csDropDownList ItemHeight = 14 TabOrder = 1 Items.Strings = ( 'Use 16 system colors resolution' 'Use 256 colors resolution' 'Use true color resolution' 'Use Automatic color resolution') end end object StatusBar1: TStatusBar Left = 1 Top = 353 Width = 578 Height = 19 Panels = < item Width = 350 end item Width = 50 end> SimplePanel = False object Gauge1: TProgressBar Left = 352 Top = 3 Width = 233 Height = 16 Min = 0 Max = 100 TabOrder = 0 end end object CloseBtn: TBitBtn Left = 499 Top = 319 Width = 75 Height = 30 Caption = 'Close' TabOrder = 9 OnClick = CancelBtnClick end end end